home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / AGSTUT2.ZIP / AGSTUT2.PPS < prev    next >
Encoding:
Text File  |  1995-04-16  |  4.8 KB  |  145 lines
  1. ;-----------------------------------------------------------PowerPPL v2.1----
  2. ; File           : AGSTUT2.PPS
  3. ; Original by    : LONE RUNNER on 04/16/1995 at 17:07:22
  4. ; Last update by : LONE RUNNER on 04/16/1995 at 17:44:56
  5. ;----------------------------------------------------------------------------
  6. ;$USEFUNCS
  7. ;----------------------------------------------------------------------------
  8. Declare Procedure DispSel(Integer Seln)
  9. Declare Procedure EraseSel(Integer Seln)
  10. Declare Procedure EraseCursor()
  11. ;----------------------------------------------------------------------------
  12. Int Sel
  13. String k, BakLightBar
  14. ;----------------------------------------------------------------------------
  15.  
  16.  
  17. Begin
  18.  
  19. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Non Stop Display
  20. StartDisp FNS
  21. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ First Selection is #1
  22. Sel = 1
  23.  
  24. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Menu Entry Point
  25. :Restart
  26.  
  27. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Clear Screen
  28. CLS
  29. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Display menu (language aware)
  30. DispFile PPEPath()+"MENU", GRAPH+LANG
  31.  
  32. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Display lightbar on current selection
  33. DispSel(Sel)
  34.  
  35. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Endless loop
  36. While (1) Do
  37.     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Get a keypress
  38.     k = Inkey()
  39.     If (k <> "") Then
  40.         Select case k
  41.             ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Did we hit the DOWN key?
  42.             Case "DOWN"
  43.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Erase selection
  44.                 EraseSel(Sel)
  45.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Inc selection
  46.                 Sel = Sel + 1
  47.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Test for the middle line
  48.                 If (Sel = 3) Sel = 4
  49.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Test for the end of menu
  50.                 If (Sel = 6) Sel = 1
  51.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Display selection
  52.                 DispSel(Sel)
  53.             ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Did we hit the UP key?
  54.             Case "UP"
  55.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Erase selection
  56.                 EraseSel(Sel)
  57.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Dec selection
  58.                 Sel = Sel - 1
  59.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Test for the middle line
  60.                 If (Sel = 3) Sel = 2
  61.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Test for the beginning of menu
  62.                 If (Sel = 0) Sel = 5
  63.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Display selection
  64.                 DispSel(Sel)
  65.             ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Did we hit the ENTER key?
  66.             Case Chr(13)
  67.                 If (Sel = 1) Then
  68.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Do stuff for option1
  69.                     ;
  70.                     ;
  71.                     ;
  72.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Restart menu
  73.                     Goto Restart
  74.                 Else If (Sel = 2) Then
  75.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Do stuff for option2
  76.                     ;
  77.                     ;
  78.                     ;
  79.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Restart menu
  80.                     Goto Restart
  81.                 Else If (Sel = 4) Then
  82.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Do stuff for option3
  83.                     ;
  84.                     ;
  85.                     ;
  86.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Restart menu
  87.                     Goto Restart
  88.                 Else If (Sel = 5) Then
  89.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Do stuff for option4
  90.                     ;
  91.                     ;
  92.                     ;
  93.                     ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Restart menu
  94.                     Goto Restart
  95.                 End If
  96.             ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Did we hit the ESC key?
  97.             Case Chr(27)
  98.                 ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Get out of here!
  99.                 Break
  100.         End Select
  101.     EndIf
  102. EndWhile
  103. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Terminate the program
  104. End
  105. ;----------------------------------------------------------------------------
  106. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Display the selection
  107. ;
  108. ;
  109. Procedure DispSel(Integer Seln)
  110. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Move to the right line & column
  111. AnsiPos 22,11+Seln-1
  112. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Save the string with colors
  113. BakLightBar = ScrText(22,11+Seln-1,36,True)
  114. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Print the string as selected
  115. Print "@X1F",ScrText(22,11+Seln-1,36,False)
  116. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Erase cursor
  117. EraseCursor()
  118. Endproc
  119. ;----------------------------------------------------------------------------
  120. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Erase The selection
  121. ;
  122. ;
  123. Procedure EraseSel(Integer Seln)
  124. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Move to the right line & column
  125. AnsiPos 22,11+Seln-1
  126. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Print bak the previously saved string
  127. Print "@X0F",BakLightBar
  128. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Erase cursor
  129. EraseCursor()
  130. Endproc
  131. ;----------------------------------------------------------------------------
  132. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Erase cursor
  133. ;
  134. ;
  135. Procedure EraseCursor()
  136. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Move to coordinates 1,22
  137. AnsiPos 1,22
  138. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Switch to color 0 (black on black)
  139. Color 0
  140. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Print a space
  141. Print " "
  142. ;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Move back to 1,22, cursor is now hidden!
  143. Backup 1
  144. EndProc
  145.